10 REM       *** DFT1.0 - GENERATE SQUARE WAVE  ***
12 INPUT "NUMBER OF TERMS";N
20 PI = 3.14159265358#
30 FOR I = 0 TO 2*PI STEP PI/8
32 Y=0
40 FOR J=1 TO N: Y=Y+SIN(J*I)/J: NEXT
50 PRINT Y
60 NEXT I
70 END
